﻿Public Class frmPrincipal
    Inherits formPadrao

    Private Sub MontarListaDadosRetiradosPCNetToolStripMenuItem_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub SairToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SairToolStripMenuItem.Click
        Application.Exit()
    End Sub

    Private Sub MToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MToolStripMenuItem.Click
        Try
            Dim form As New frmMontaItensAvaliacao
            generica.fechaForms(Me)
            form.MdiParent = Me
            form.Show()
        Catch ex As Exception
            generica.gravaErro(ex)
        End Try
    End Sub

    Private Sub ConstataçãoToxicológicaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConstataçãoToxicológicaToolStripMenuItem.Click
        Try
            Dim form As New frmConstatacaoPreliminar
            generica.fechaForms(Me)
            form.MdiParent = Me
            form.Show()
        Catch ex As Exception
            generica.gravaErro(ex)
        End Try
    End Sub
End Class